From: Chong Yidong <cyd@stupidchicken.com>
Date: Tue, 15 Dec 2009 22:51:31 +0000 (+0000)
Subject: * xdisp.c (decode_mode_spec): Inhibit garbage collection when
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~8903
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=c6cf9bd3be346e17645bffcadb2a011f0a517a1f;p=emacs.git

* xdisp.c (decode_mode_spec): Inhibit garbage collection when
calling file-remote-p.  Reported by Jim Meyering.
---

diff --git a/src/ChangeLog b/src/ChangeLog
index 9856e02c986..34cdbad4148 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2009-12-15  Chong Yidong  <cyd@stupidchicken.com>
+
+	* xdisp.c (decode_mode_spec): Inhibit garbage collection when
+	calling file-remote-p.  Reported by Jim Meyering.
+
 2009-12-15  Michael Albinus  <michael.albinus@gmx.de>
 
 	* dbusbind.c (xd_retrieve_arg): Reorder declarations in order to
diff --git a/src/xdisp.c b/src/xdisp.c
index 449d42dcf17..23c5e2d0f4c 100644
--- a/src/xdisp.c
+++ b/src/xdisp.c
@@ -18630,7 +18630,10 @@ decode_mode_spec (w, c, field_width, precision, multibyte)
     case '@':
       {
 	Lisp_Object val;
+	int count = inhibit_garbage_collection ();
 	val = call1 (intern ("file-remote-p"), current_buffer->directory);
+	unbind_to (count, Qnil);
+
 	if (NILP (val))
 	  return "-";
 	else